COMMENT ⊗   VALID 00007 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	REQUIRE "GEOMED.REL"	LOAD_MODULE
 00004 00003	REQUIRE "GEMSUB.REL"	LOAD_MODULE
 00006 00004	REQUIRE "WINGS.REL"	LOAD_MODULE
 00008 00005	REQUIRE "EULER.REL"	LOAD_MODULE
 00010 00006	REQUIRE "VIEWER.REL"	LOAD_MODULE
 00011 00007	GEM-NODE NAMES FOR LINKS AND DATA
 00015 ENDMK
⊗;
REQUIRE "GEOMED.REL"	LOAD_MODULE;
EXTERNAL SIMPLE INTEGER PROCEDURE GEOMED;

REQUIRE "MEMIO.REL"	LOAD_MODULE;
EXTERNAL SIMPLE INTEGER PROCEDURE MKNODE(INTEGER TYP);
EXTERNAL SIMPLE INTEGER PROCEDURE KLNODE(INTEGER NOD);
EXTERNAL SIMPLE INTEGER PROCEDURE MKUNIV;
EXTERNAL SIMPLE INTEGER PROCEDURE MKWORLD;
EXTERNAL SIMPLE INTEGER PROCEDURE MKCAMERA(INTEGER WORLD);
EXTERNAL SIMPLE INTEGER PROCEDURE MKWINDOW(INTEGER CAMERA,WINDOW);

EXTERNAL SIMPLE INTEGER PROCEDURE INCAM(STRING FILNAM);
EXTERNAL SIMPLE INTEGER PROCEDURE INB3D(STRING FILNAM);
EXTERNAL SIMPLE INTEGER PROCEDURE INGEM(STRING FILNAM);
EXTERNAL SIMPLE INTEGER PROCEDURE OUTCAM(STRING FILNAM);
EXTERNAL SIMPLE INTEGER PROCEDURE OUTB3D(STRING FILNAM;INTEGER B);
EXTERNAL SIMPLE INTEGER PROCEDURE OUTGEM(STRING FILNAM;INTEGER B);

REQUIRE "GEMSUB.REL"	LOAD_MODULE;

EXTERNAL SIMPLE REAL PROCEDURE SQRT (REAL X);
EXTERNAL SIMPLE REAL PROCEDURE LOG  (REAL X);
EXTERNAL SIMPLE REAL PROCEDURE SIN  (REAL X);
EXTERNAL SIMPLE REAL PROCEDURE COS  (REAL X);
EXTERNAL SIMPLE REAL PROCEDURE ASIN (REAL X);
EXTERNAL SIMPLE REAL PROCEDURE ACOS (REAL X);
EXTERNAL SIMPLE REAL PROCEDURE ATAN (REAL X);
EXTERNAL SIMPLE REAL PROCEDURE ATAN2(REAL Y,X);

EXTERNAL SIMPLE PROCEDURE DPYSET(INTEGER ARRAY PTR);
EXTERNAL SIMPLE PROCEDURE DPYBIG(INTEGER SIZE);
EXTERNAL SIMPLE PROCEDURE DPYBRT(INTEGER SIZE);

EXTERNAL SIMPLE PROCEDURE AVECT(INTEGER X,Y);
EXTERNAL SIMPLE PROCEDURE AIVECT(INTEGER X,Y);
EXTERNAL SIMPLE PROCEDURE RVECT(INTEGER X,Y);
EXTERNAL SIMPLE PROCEDURE RIVECT(INTEGER X,Y);

EXTERNAL SIMPLE PROCEDURE DPYSST(STRING S);
EXTERNAL SIMPLE PROCEDURE DPYOUT(INTEGER POG);
EXTERNAL SIMPLE PROCEDURE DPYSTR(REFERENCE INTEGER TEXT);

EXTERNAL SIMPLE PROCEDURE DTYO(INTEGER BPTR);
EXTERNAL SIMPLE PROCEDURE OCTDPY(INTEGER X);
EXTERNAL SIMPLE PROCEDURE DECDPY(INTEGER X);
EXTERNAL SIMPLE PROCEDURE FLODPY(REAL X;INTEGER PLACES(4));
REQUIRE "WINGS.REL"	LOAD_MODULE;

EXTERNAL SIMPLE INTEGER PROCEDURE MKB(INTEGER WORLD);
EXTERNAL SIMPLE INTEGER PROCEDURE KLB(INTEGER BNEW);
EXTERNAL SIMPLE INTEGER PROCEDURE KLBFEV(INTEGER BNEW);

EXTERNAL SIMPLE INTEGER PROCEDURE MKF(INTEGER FNEW);
EXTERNAL SIMPLE INTEGER PROCEDURE MKE(INTEGER ENEW);
EXTERNAL SIMPLE INTEGER PROCEDURE MKV(INTEGER VNEW);

EXTERNAL SIMPLE INTEGER PROCEDURE KLF(INTEGER FNEW);
EXTERNAL SIMPLE INTEGER PROCEDURE KLE(INTEGER ENEW);
EXTERNAL SIMPLE INTEGER PROCEDURE KLV(INTEGER VNEW);

EXTERNAL SIMPLE INTEGER PROCEDURE WING(INTEGER E1,E2);
EXTERNAL SIMPLE INTEGER PROCEDURE LINKED(INTEGER Q1,Q2);

EXTERNAL SIMPLE INTEGER PROCEDURE ECW(INTEGER Q1,Q2);
EXTERNAL SIMPLE INTEGER PROCEDURE ECCW(INTEGER Q1,Q2);
EXTERNAL SIMPLE INTEGER PROCEDURE OTHER(INTEGER Q1,Q2);

EXTERNAL SIMPLE INTEGER PROCEDURE VCW(INTEGER E,F);
EXTERNAL SIMPLE INTEGER PROCEDURE VCCW(INTEGER E,F);
EXTERNAL SIMPLE INTEGER PROCEDURE FCW(INTEGER E,V);
EXTERNAL SIMPLE INTEGER PROCEDURE FCCW(INTEGER E,V);

EXTERNAL SIMPLE INTEGER PROCEDURE BGET(INTEGER Q);
EXTERNAL SIMPLE INTEGER PROCEDURE BDET(INTEGER Q);
EXTERNAL SIMPLE INTEGER PROCEDURE BATT(INTEGER Q1,Q2);
REQUIRE "EULER.REL"	LOAD_MODULE;

EXTERNAL SIMPLE INTEGER PROCEDURE INVERT(INTEGER E);
EXTERNAL SIMPLE INTEGER PROCEDURE EVERT(INTEGER B);

EXTERNAL SIMPLE INTEGER PROCEDURE MKEV(INTEGER F,V);
EXTERNAL SIMPLE INTEGER PROCEDURE MKFE(INTEGER V1,F,V2);
EXTERNAL SIMPLE INTEGER PROCEDURE ESPLIT(INTEGER E);
	
EXTERNAL SIMPLE INTEGER PROCEDURE KLFE(INTEGER E);
EXTERNAL SIMPLE INTEGER PROCEDURE KLEV(INTEGER V);
EXTERNAL SIMPLE INTEGER PROCEDURE KLVE(INTEGER E);

EXTERNAL SIMPLE INTEGER PROCEDURE MKCOPY(INTEGER B);
EXTERNAL SIMPLE INTEGER PROCEDURE GLUE(INTEGER F1,F2);
EXTERNAL SIMPLE INTEGER PROCEDURE GLUEE(INTEGER F1,V1,F2,V2);

EXTERNAL SIMPLE INTEGER PROCEDURE SWEEP(INTEGER F,FLG);
EXTERNAL SIMPLE INTEGER PROCEDURE ROTCOM(INTEGER F);
EXTERNAL SIMPLE INTEGER PROCEDURE PYRAMID(INTEGER FV);

EXTERNAL SIMPLE INTEGER PROCEDURE REMOVF(INTEGER F);
EXTERNAL SIMPLE INTEGER PROCEDURE FVDUAL(INTEGER B);

EXTERNAL SIMPLE INTEGER PROCEDURE MKCUBE(REAL A,B,C);
EXTERNAL SIMPLE INTEGER PROCEDURE MKCYLN(REAL R,N,Z);
EXTERNAL SIMPLE INTEGER PROCEDURE MKBALL(REAL R,M,N);

REQUIRE "BIN.REL"	LOAD_MODULE;
REQUIRE "VIEWER.REL"	LOAD_MODULE;
EXTERNAL SIMPLE PROCEDURE GEODPY;
EXTERNAL SIMPLE PROCEDURE SHOW1(INTEGER WINDOW,GLASS);

REQUIRE "OCCULT.REL"	LOAD_MODULE;

REQUIRE "EUCLID.REL"	LOAD_MODULE;
EXTERNAL SIMPLE INTEGER PROCEDURE TRANSLATE(INTEGER Q;REAL X,Y,Z);
EXTERNAL SIMPLE INTEGER PROCEDURE ROTATE   (INTEGER Q;REAL X,Y,Z);
EXTERNAL SIMPLE INTEGER PROCEDURE SHRINK   (INTEGER Q;REAL X,Y,Z);
EXTERNAL SIMPLE INTEGER PROCEDURE APTRAN(INTEGER Q,ET);
EXTERNAL SIMPLE INTEGER PROCEDURE INTRAN(INTEGER ET);
EXTERNAL SIMPLE  REAL   PROCEDURE DISTAN(INTEGER Q1,Q2);

COMMENT GEM-NODE NAMES FOR LINKS AND DATA;
REQUIRE "⊂⊃⊂⊃" DELIMITERS;

COMMENT WORLD LOCUS;
	DEFINE XWC(V)=⊂MEMORY[V-3,REAL]⊃;
	DEFINE YWC(V)=⊂MEMORY[V-2,REAL]⊃;
	DEFINE ZWC(V)=⊂MEMORY[V-1,REAL]⊃;
	DEFINE AA(V)=⊂MEMORY[V-3,REAL]⊃;
	DEFINE BB(V)=⊂MEMORY[V-2,REAL]⊃;
	DEFINE CC(V)=⊂MEMORY[V-1,REAL]⊃;
	DEFINE TYP(V)=⊂MEMORY[V]⊃;
	DEFINE BBIT=⊂'1000000⊃;
COMMENT ROTATION MATRIX;
	DEFINE IX(V)=⊂MEMORY[V+0,REAL]⊃;
	DEFINE IY(V)=⊂MEMORY[V+1,REAL]⊃;
	DEFINE IZ(V)=⊂MEMORY[V+2,REAL]⊃;
	DEFINE JX(V)=⊂MEMORY[V+3,REAL]⊃;
	DEFINE JY(V)=⊂MEMORY[V+4,REAL]⊃;
	DEFINE JZ(V)=⊂MEMORY[V+5,REAL]⊃;
	DEFINE KX(V)=⊂MEMORY[V+6,REAL]⊃;
	DEFINE KY(V)=⊂MEMORY[V+7,REAL]⊃;
	DEFINE KZ(V)=⊂MEMORY[V+8,REAL]⊃;

COMMENT PERSPECTIVE-PROJECTED LOCUS;
	DEFINE XPP(V)=⊂MEMORY[V+4,REAL]⊃;
	DEFINE YPP(V)=⊂MEMORY[V+5,REAL]⊃;
	DEFINE ZPP(V)=⊂MEMORY[V+6,REAL]⊃;

COMMENT FACE, EDGE AND VERTEX RINGS;
	DEFINE H1(X)=⊂ (X LSH -18)⊃;
	DEFINE H2(X)=⊂ (X LAND '777777)⊃;
	DEFINE H2→(Y,X)=⊂ ((X LAND '777777000000)LOR(Y LAND '777777))⊃;
	DEFINE H1→(Y,X)=⊂ (((Y LAND '777777)LSH 18)LOR(X LAND '777777))⊃;
	DEFINE NFACE(E)=⊂H1(MEMORY[E+1])⊃;
	DEFINE PFACE(E)=⊂H2(MEMORY[E+1])⊃;
	DEFINE NED(E)=⊂H1(MEMORY[E+2])⊃;
	DEFINE PED(E)=⊂H2(MEMORY[E+2])⊃;
	DEFINE PED→(Y,E)=⊂MEMORY[E+2]←H2→(Y,MEMORY[E+2])⊃;
	DEFINE NVT(E)=⊂H1(MEMORY[E+3])⊃;
	DEFINE PVT(E)=⊂H2(MEMORY[E+3])⊃;

COMMENT PARTS' TREE LINKS;
	DEFINE DAD(B)=⊂H1(MEMORY[B+4])⊃;
	DEFINE SON(B)=⊂H2(MEMORY[B+4])⊃;
	DEFINE BRO(B)=⊂H1(MEMORY[B+5])⊃;
	DEFINE SIS(B)=⊂H2(MEMORY[B+5])⊃;

COMMENT MULTI PURPOSE LINKS;
	DEFINE ALT(B)=⊂H1(MEMORY[B+6])⊃;
	DEFINE ALT2(B)=⊂H2(MEMORY[B+6])⊃;
	DEFINE ALT→(Y,B)=⊂MEMORY[B+6]←H1→(Y,MEMORY[B+6])⊃;
	DEFINE ALT2→(Y,B)=⊂MEMORY[B+6]←H2→(Y,MEMORY[B+6])⊃;
	DEFINE FRAME(B)=⊂H2(MEMORY[B+6])⊃;
	DEFINE CW(B)=⊂H1(MEMORY[B+7])⊃;
	DEFINE CCW(B)=⊂H2(MEMORY[B+7])⊃;
	DEFINE CAR8(B)=⊂H1(MEMORY[B+8])⊃;
	DEFINE CDR8(B)=⊂H2(MEMORY[B+8])⊃;

REQUIRE UNSTACK_DELIMITERS;